home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / clipper / rlib20.zip / RL_RJUST.PRG < prev    next >
Text File  |  1989-02-18  |  257b  |  9 lines
  1. * Function: RJUSTIFY
  2. * Author..: Richard Low
  3. * Syntax..: RJUSTIFY( exp<C> )
  4. * Returns.: exp<C> with any trailing spaces put in front of exp<C>
  5.  
  6. FUNCTION RJUSTIFY
  7. PARAMETER p_string
  8. RETURN (SPACE(LEN(p_string)-LEN(TRIM(p_string))) + TRIM(p_string))
  9.